if @rec="SOUR"
  ! DATA for source record
  ! EVEN has subordinate DATE and PLAC
  show EVEN
  show AGNC
  showAll NOTE
else if @rec="HEAD"
  ! static text with level and tab
  NewLine
  #tlabel=local("Source Data")
  cell static,#tlabel&":"
  set tabwidth -1 alignment right
  help #tlabel

  ! edit field with value
  cell EditValue
  set Width -1
  help local("Enter name of source data")

  newline
  tab 1
  ClearTabs
  SetTab #hpos$+30
  HMoveTo #leftSkip$

  show DATE
  show COPR
else
  show DATE
  show TEXT
endif